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4962 READ TEST 


STMT SOURCE STATEMENT 


es cs tea > eo a 


PAGE 05 
COPYRIGHT IBM CORP 1976 


P/N=1635242 EC=755285 


10064* . 
1007+* : TURESUL BIT 4----NOT USED 
1008+* : TURESUL BIT 5----NOT USED 
1009+* ; TURESUL BIT 6----NO RECORD FOUND 
1010+% : TURESUL BIT 7----SYNC CHECK OR FILE DATA CHECK 
+ : 
1012+* : TURESUL BIT 8----ATTACHMENT BUFFER PARITY CHECK 
1013+* TURESUL BIT 9----NOT USED 
1014+* i TURESUL BIT 10---ERROR OTHER THAN SYNC OR FILE ) ATA CHECK 
1015+ : TURESUL BIT 11---FAILURES NOT CONSISTENT 
+ x 
1017+% s TURESUL BIT 12---ERRORS ON READ ID - HEAD 0 
1018+ * x ¥URESUL BIT 13---SOLID FAILURE HEAD 0 - READ ID 
1019+* : TURESUL BIT 14---EPRORS ON READ ID - HEAD 1 
1020+% : TURESUL BIT 15---SOLID FAILURE HEAD 1 -— READ ID 
+ A 
1022+* 7 TURESUL BIT 16---SOLID FAILURE HEAD 0 (ID MISCOMPARE 
1023+* : TURESUL BIT 17---SOLID FAILURE HEAD 1 (ID MISCOMPARF 
10244+% : TURESUL BIT 18---MISCOMPARES ON HEAD 0 
1025+% : TURESUL BIT 19---MISCOMPARES ON HFAD 1 
10274+* : TURESUL BIT 20---INTERRUPT 
1028+* : TURESUL BIT 21---PECAL 
1029+* : TURESUL RIT 22---SEEK 
1030+%* TURESUL BIT 23---NOT USED 
1031+* 
10 32+% : TURESUL BITS 24-31 NOT USED 
1033++ : TURESUL BITS 32-47 CS STATS FOR FAILING OP 
+ e 
1035+% EXITS NORMAL 
10 36+* : RETURNS TO MDI SUPERVISOR WHEN DONE. 
+ _ 
1039+* EXITS ERROR 
10 394% i RETURNS TO MDI SUPERVISOR. 
1040+% 
1041+* RETURN CONTROL 
1042+% 
104 34% B TURTN* RETURN TO MDI SUPERVISOR 
+ 
1 045+ PS PSL SS SSE LS SS ES SSE SSS SSL LESS SEL SSS SPSL SL SLES SSS SES SES SSS SS Sie tt SSS te SS Ss 
1046477850 MVW R7,TURTN SAVE PETURN ADDRESS 
1047+ MVWI xX'7850' $TUID SAVE TU ID FOR DISPLAY 
1048+ MVA  OPTN1,R4 SET UP POINTER ADRS IN R4 
1049+ BAL $CONC,R6 CLEAP DEV DEP STG AND CONNECT TI/0 BL 
1050+ DC A (SEPRS$) ERROR ADRS FOR INVALID PREP 
1052 MVB  CPUID,RO DETERMINE TYPE OF PROCESSOR 
1053 CBI 7 * 
1054 JNE T56%c JUMP IF NOT 4955 
1055 MVWI X'25uC',T50T142 LOAD TIME CONSTANT FOR 2 SEC 
1956 uv WI X1254C* ,T50T342 LOAD TIME CONSTANT FOR 2 SEC 
1058 T50TC MVWI xX 0COE',T50T1+42 (4953) LOAD TIME CONS FOR 2 SEC 
1059 MVWI X"OCOE', T50T3+42 LOAD TIME CONSTANT FOP 2 SEC 
1060 T50T2 MVWI 0,PASS1 INIT PASS COUNTER 
1061 TBTR (£4,860) INIT CYL 2 FLAG 
1062 MVWI O,HDOSV INIT HEAD 0 SAVE COMP EPP CTP 
1063 MVWI O-HDISV INIT HEAD 1 SAVE COMP ERR CTR 
1064 MVWI O,EPOSV INIT HFAD O SAVE EPR COUNTER 
1065 MVWI O,ERISV INIT HEAD 1 SAVE ERR COUNTER 
1066 MVWZ TORESUL, R2 CLFAR RESULTS WORD 
1067 MVWZ TURESUL42 ,R2 CLEAR RFSULTS WORD 
1068 MVWZ TURESUL+4—R2 CLEAR RESULTS WORD 2 
1069 MVA TURFSUL,R2 ADDRESS OF RESULTS 
1070 T50U MVWI O0O,HEADO TNIT HEAD ZERO MISCOMPARE COUNTER 
1071 MVWI O.HEAD1 INIT HEAD ONE MISCOMPAPE COUNTEP 
1072 MVWI 120,GDSEO INIT GOOD SECTOR EQUAL 120 
1073 MVWI 120°GDSE1 INTT GOOD SECTOR EQUAL 120 
1074 MVWI 0,EPO00 INIT HEAD O ERROP COUNTER 
1075 MVWI 0,EPO1 INIT HEAD 1 EPPOR CUNTER 
4076 MVA  TOBLK,R7 SETUP TOBLK 
1077 SVC — RESET ISSUE IO RESET 
1078 T50T1 MVWI xX*'0000',RO TIME OUT 2 SEC 
1079 1750 SVC. IDLE - 
1080 IcT  7750,R0 * 
1081 BAL $RECL,R6 RECALIBRATE 
1082 DC A (SEPRS) ERROP 
1083 TBTR Ara ER) INTERRUPT ERROR? 
1084 BON SOKA YES 
1085 MVWI 5,SKDCB SEEK CONTROL WORD 
1086 MVWI 2-SKDCBt2 SEEK TO CYL 2 
1087 MVB  TOPDAPM1*,SKDCB+8 SELECT HEAD (PARM1) 
1088 BAL SSEEK.R * 
1089 DC A (SERPS) 
1090 TBTR (Pa ER) INTERRUPT ERPOR? 
1094 BON 5068 YES 
1092 MVWI X*200A',RSDCB RD SECT ID CONTROL WORD 
1093 T50G MVWI 0,LGSEC SET UP LOG SECT# TO ZERO 
1094 T50ER BAL CONVT,PE CONVERT SECT # FROM LOGICAL TO PHYSC 
1095 MVB  PHYSC4+1,PSDCB+4 LOAD DCB 
1096 BAL  RDID,R6 RFAD ID SUBROUTINE 
1097 CWI X'FFFF',SCTID DID WE READ AN ID INTO STORAGE? 
1098 JE T50d NC-FORCE MISCOMPARE COUNT 
1099 CB ZEROO ,SCTID+1 FLAG ZERO ? 
1100 BNE ‘50a FLAG NOT ZERO 
1101 CB LGSEC+1,SCTID+#5 COMPARE SECT # TO EXPECTED # 
1102 JNE 50d NO — MISCOMPARE 
1103 CW SKDCB+2,SCTID+2 CYL# CCMPAPE 
1104 INE 50d NO 
1105 CB SKDCE+8,SCTID+4 HFAD# COMPARE 
1106 INE 150d 
1107 J T5OB 
1108 T503 CB ZEROO ,SKDCB+8 HEAD 0 ? 
1109 JE T50C YES 
4110 AWI 1,HEAD1 TNC HEAD 1 COUNTER 
4111 J T50R 
1112 T50C AWI  1,HEADO INC HEAD O COUNTER 
1113 T50B cwI 58-,1GSEC 60 SECTORS READ ? 
1114 BE T56p YES 
1115 AWI 1-LGSEC INC SECT # 
1116 d T50E 
1117 T50D CB ZEROO ,SKDCB+8 HEAD O 
1118 JNE  T50F NO 
1119 MVB SKDCB+3,SKDCBt9 SAVE DIFFERENCE 
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MN 
| 
= 
Hi 


sa ee cee mee cae eh cee ec mee eed med cme ced mec me ceed wad edb cued cree ch cone cman cent ccd cmc peach ced ceed cod coed camed cet wad cane we ceed nt cued cared cad ceed coed ened ged ced cam aed core cmd cam med enecd cunt cred ceed cam cued ween amd md ceed ened ed weed cored ceed ced med cach ed red can ceed cd cond cand cand eth mad ened ced ned cca cre cnet ceed cae cnet oath cand coped saad cond cand coc cod mad caoh coed cnet euch ened scald ced oye ceed coed med onnd cad cond wud mad 
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P/N=1635242 


SOURCE STATEMENT 
MVWI O,SKDCB42 
MVB  TOPARM2*,SKDCB+8 
BAL $SEEK,R6 

DC A (SERRS) 

TBTR 4, ER) 
5063 

NVB © SKDCB+9, SKDCB+3 


EC=755285 


JON 0 
MVA  IOBLK,R7 
SVC RESET 
spo ir pobito+ nc 
ICT  TTT5,RO 
var {*éenepto 
MVB TO&PARM1*,SKDCB+8 
BAL $SEEK,R6 
DC A (SERRS) 
TBTR (Ea ER) 
BON 50 6B 
MVWI 3,SKDCBt2 
J T50G 
T50H cur 1,PASS1 
cwI O EROO 
TBTS fr2 1 
CW DSEO,£ROO 
JNE 50L 
TBYS (R2 13) 
T50L cwI 0, HEAD 
TBTS & 18) 
CW DSf0,HEADO 
JNE TSO. 
TBTS (R2 16) 
Tsou AV® = HEAbO, HDOsv 
cut O,EROT 
TBTS (R2,14 
CW bnSh1,eR01 
INE  T5ON 
TBTS (R2,15 
T5ON CWI O,HEAD 
JE T50R 
TBTS (P2 19) 
Cw pS&1,HEAD1 
JNE  T5O0R 
TBTS (R2 17) 
TSOR MVW EAD1, HD1SV 
MVW ERO1,£P1SV 
CWI 0O,HEADO 
INE T50S 
CWI O,HEAD1 
INE  T50s 
CB ZEFROO ,TURESUL+1 
JE T50T 
T50S AWI 1,PASS1 
: B T500 
*& 
T50T cK EROSV, EROO 
TBTS (R2 11) 
T50W cH HDOSV, EADO 
TBTS (R2 11) 
T50X cw ERISV, R01 
TBTS (F2 11) 
T50Y B 50% 
RDID BAD ORBBTD ORG. 
DC A (SERPS) 
TBTR (Pa ER) 
JOFF 7506 
TBTR (eu CSA) 
BOFF SERE$ 
MVW CSBUF42,STATS 
MVA StaTs,P5 
EDIF (B34 33 
TBTP (R5 7) 
JON 504 
TBTR (Be 1) 
JON 503 
sr gs” 
FOE 4cok 
TBTS R2,8) 
T504 TBTS tron ) 
T503 TBTS {R2 7) 
T505 CuI 0, SKD B+8 
aeT i860. 
T506 AWI 1, EROO 
T501 TBTS (R2,€) 
T500 #—% 
* 
x 
T502 TBTS (F241) 
T50A cwI 0, SKDCB+8 
SHI 1/-GDSEO 
B T50B 





PAGE OSA 
COPYRIGHT IBM COPP 1976 
NO-OP 
SELECT HEAD (PAFM2) 
SELECT HEAD 
INTERPUPT EPFOR? 
ERROR 
RESTORE DIFFERENCE IN SEEK DCB 
PEAD ID WITH HEAD ONE 
CYL 2 & 3 READ? 
YES 
DEVICE PRESET 
TIME OUT 2 SEC 


* 
SET CYL 3 FL 


A 
FWD SEEK TO T 
SELECT HEAD 0 
SEEK TO CYL 3 
ANY ERRORS 
ERKROF 

SET UP FOR CYL 3 

LOOP 

PASS - TWO ? 

YES 

HEAD 0 READ ERFOR CTF 0 ? 


SET ERRORS ON FD ID HEAD 0 
aoe O RD EPROPS = GOOD SECT CTF ? 


SOLID FAILURE HEAD 0 
HEAD O MISCOMPARE CTR = OQ 


MISCOMPARES ON HEAD 0 
MISCOMPAPES ON HD O = GOOD SECT CTR 


SOLID So na HEAD 0 


SAVE RD ERRORS 
HEAD 1 RD ERRORS = 0 


ERRORS ON RD ID HEAD 1 
HD 1 RD ERRORS = GOOD SECT CTR 


NO 
SOLID FAILURES HEAD 1 
ae 1 MISCOMPARE CTR = 0 


A 

SCOMPARE ON HEAD 1 

SCCMPARES ON HD1 = GOOD SECT CTR 
LI 

V 


D FAILURES HD1 (ID MISCOMPAPES) 
E MISCOMPARE CTR 


CA ene CTR FOR HDO 
NOD ee CTP FOR HD!1 
MDI BYTE 2 = 0 

PAIL 


INC PASS CTR 
GO EXECUTE PASS 2 


HE 
Y 

MI 
MI 
NO 
SO 
SA 


vee” CTR PASS1 = HDO CTR PASS2 ? 
FAILURES NOT CONSISTENT 
HDO CTR PASS1 = HDO CTR PASS2 ? 


YES 
FAILURES NOT CONSISTENT 
HD1 CTRS PASS1 = HDO CTRS PASS 2 ? 


YES 
FAILURES NOT CONSISTENT 
EXIT 


SETUP RETUPN ADDRESS 
READ ID 
EPROR 


CYCLE STEAL STATS ? 
ERPOR 
GET CS STATS 


NO RECORD FOUND 
YES 

UNSAFE 

YES 

SYNC CHECK 

YES 

FILE DATA OK ? 
YES 

note PARTTY OK 


ATTACH BUFFER PARITY 
EPROP OTHEP THAN SYNC ON FILE D CK 


SYNC OR FILE DATA CHECK 
HEAD 0 

YES 

INC HD1 READ ERROR CTR 

RETUFPN 

INC HDO READ ERROP CTP 


NO RECORD FOUND 

PETUPN TO CALLER 

UNSAFE 

EXIT 

USING HEAD 0 

DEC GOOD SECT CTP (HEADO) 








17811 --- 4962 READ TEST P/N=1635242 EC=755285 PAGE 06 T7611 === 4962 READ TEST P/N=1635242 EC=755285 PAGE 06A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO2CAC YWOQ2E 2FFE 0001 1234 T507 SWI 1,GDSE1 DEC GOOD SECT CTR (HEAD1) 002D48 6F03 3106 1349 BAL SRECL RECALIPRATE 
002CB2 6802 2B14 1235 B T50B 002D4c 3314 1350 DC A (SERS) EPPOR 
00 2CB6 GA55 1236 T5SOAA TBTS R2,21 RECAL OO2DUE 4CA1 1351 TBTR sea ER) INTERRUPT EPROR? 
OO2CB8 4ASa 1237 T50cc TBTS (R2/20 INTEPRUPT 002D50 6A00 2E84 1352 BON S7Ka YES 
OO2CBA 8828 292A 18CC 1238 VW SBUF42,TUPESUL+4 002D54 4020 2FO2 0005 1353 MVWI 5,SKDCR SEEK CONTROL WORD 
002CC0 5002 1239 J T50T OO2D5A 8038 189A 2FOA 1354 MVB TOHPAPM1* SKDCB+8 SELECT HEAD FROM MDI PARM 
002CC2 GAS6 1240 TSOBB TBTS (R2 22) SEEK 002D60 4020 2F04 O12E 1355 MVWI 302 eRpchaO SEEK TO CE TRACK 
002CCH SOFS 1241 3 50EéC 002D66 6E03 30FE 1356 BAL S$SEEK,R6 * 
4242 T50T TxIT EXIT OO2D6A 3314 1357 DC A (SERS) 
002CC6 6802 3364 12434+T50T SCONX RETURN TO MDI CONTROLLER 002D6C 4CA1 1358 TBR A 4, ER) INTEPRUPT EPROR? 
swe R SSE SPST SS TTT ST SS STS SSS SSS SSS SSCS LS LSS SCL S SSS SPSS + oCeCSSCT C$ SESS LSS SLL SS 2 2 2 OO2D6E 6A00 2E90 1359 BON S1BB YES 
1245 * 002D72 4020 2EE2 200A 1360 MVWI X*200A",RSDCB RD SECT ID CONTROL WORD 
1247 - COPY 17851 O1DECT6 002D78 4020 2F90 0000 1361 T51G MVWI O,LGSEC SET UP LOG SECT# TO ZERO 
1248 £7851 TUIT SERRE 12/01/76 OO2D7E 6E03 30AC 1362 TSE BAL CONVT,R6 CONVERT SECT # FROM LOGICAL TO PHYSC 
V2 GH HH He He eH ee a RO I RK I SR kok kk dk tok a tok ke eK OG PER 7 6 002D82 8028 2F93 2EEO6 13263 MVB PHYSC+1,RSDCBt+4 LOAD DCB 
1250+%* 002D88 6E03 2E2C 1364 BAL RDID1, R6 READ ID SUBROUTINE 
1251+* TEST UNIT 002D8C 802B 2F72 2911 1365 CEB ZEROO, *SCTID+1 FLAG ZERO 
12524% 002D92 6801 2ET7A 1366 BNE  T51A FLAG NOT aERO 
12534* £051 READ ID TEST (FIXED HEADS) 002D96 802B 2F91 2915 1367 CB LGSEC+1,SCTID+t5 COMFARE SECT # TO EXPECTED # 
1254+% 002D9c 1805 1368 JNE 51d NO — MISCOMPARE 
1255+* PURPOSE 0O2D9E 802B 2FOA 2914 1369 CB SKDCB+8,SCTID+4 HEAD# COMPARE 
1256+* OO2DA4 1801 1370 INE 751d 
1257+% FUNCTION: 002DA6 5003 1371 J T51B 
12584* a 002DA8 4029 2FE8 0001 1372 1513 AWI ° 1,HEADO INC HEAD 0 COUNTER 
1259+ . PROGRAM INITIALIZES ATTACHMENT. OO2ZDAE 402F 2F90 003B 1373 T51B cWr 595,LGSEC 60 SFCTORS READ ? 
1260+* -  RECALIBRATE 00O2DB4 1004 1374 JE TS 4H YES 
1261+* - FREAD ID'S ON FIXED HEAD TRACKS ,HEAD SPEC. BY 'PARM' IN MDI 002DB6 4029 2F90 0001 1375 AWI 1,LGSEC INC SECT # 
1262+% - COMPARE ID'S READ WITH EXPECTED’ ID'S 0O2DBC 50E0 1376 a TS1E 
1263+* ‘* STOPE ID COMPARE RESULTS FOR PASS 1 OO2DBE YWO2F 2FE6 0001 1377 TS1H CWI 1,PASS1 PASS - TWO ? 
1264+% ‘ REREAD ALL ID*S (PASS2) O002DC4 1027 1378 JE ¢ 511 YES 
1265+* ‘ae COMPARE ID'S READ WITH EXPECTED ID-COMPARE ERROR CTN RESULTS 002DC46 HO2F 2FFO 0000 1379 CWI 0,EROO HEAD O READ ERROR CTR O ? 
1266+%* Fe FROM PASS 1 FOR CONSISTENCY O0O02DCC 1006 1380 JE T51L 
1267+* “ STORE THPEE INFO BYTES FOR MDI OO2DCE HA4C 1381 TBTS Age nck SET EPPORS ON RD ID HEAD O 
1268+% < 0O02DDO0 882B 2FEC 2FFO 1382 CW DStO, ROO HEAD O RD ERFPORS = GOOD SECT CTR ? 
12694% 002DD6 1801 1383 INE TS51L NO 
1270+* CALLING SEQUENCE 002DD8 4A4D 1384 TBTS sP2 13) SOLID FAILURE HEAD 0 
12714% OO2DDA 402F 2FE8 0000 1385 T51L <cWi HEAD HEAD O MISCOMPARE CTR = 0 
1272+* ec Beoen STATUS OF ALL LINES IN FOLLOWING FORMAT: OO2DE0 100A 1386 JE TS 41M 
1273+* TURESUL BIT O----NOT USED OO 2DE2 4YA52 1387 TBTS ie on MISCOMPARES ON HEAD O 
1274+% @ aORE SHEL BIT 1----~UNSAFE OO2DE4 882B 2FEC 2FE8 1388 CW DSEO, EADO MISCOMPARES ON HD O = GOOD SECT CTR 
1275+%* is TURESUL BIT 2----NOT USED OO2DEA 1801 1389 JNE T51M 
1276+* ‘e TURESUL BIT 3----NOT USED OO2Z2DEC GA50 1390 TBTS nee 16 SOLID FAILURES ON HEAD O 
1277+ é OO2DEE 8828 2FE8 2FFU 1391 T5S1M MVW EADO DOSV SAVE MISCOHMPARE 
1278+* TURESUL BIT 4----NOT USED OQOO2DFY 8828 2FFO 2FF8 1392 HVW EROO EROSY SAVE RD ERRORS 
1279+* ‘* TURESUL BIT 5----NOT USED OO2DFA 4“O2F 2FE8 0000 1393 T51R CWI 0 HEADO MISCCMPARE CTR FOR HDO = QO 
1280+% : TORESUL BIT 6----NO RECORD FOUND 002E00 1804 1394 JNE 515s NO 
12814+% ; TURESUL BIT 7----SYNC CHECK OR FILE DATA CHECK 002E02 802B 2F72 18C9 1395 cB ZEROO , TURESUL#1 MDI BYTE 2 = 0 
1282+% : 002E08 1045 1396 JE TS1T EXIT 
1283+% ; TURESUL BIT 8----ATTACHMENT BUFFER PARITY CHECK OO2EOA 4029 2FE6 0001 1397 T51S AWI  1,PASS1 INC PASS CTR 
12844* TURESUL BIT 9----NOT USED 002E10 6802 2D28 1398 B 7510 GO EXECUTE PASS 2 
1285+* Pa TURESUL BIT 10---ERROPR OTHER THAN SYNC OR FILE DATA CHECK 1399 x 
1286+% : TURESUL BIT 11---FAILURES NOT CONSISTENT 1400 * 
1287+* : 002E14 882B 2FF8 2FFO 1401 T51I CW EROSV, EROO HD 0 CTR PASS1 = HDO CTR PASS2 ? 
1288+* a TURESUL BIT 12---READ ERRORS CHECKS DETECTED) OO2ZETA 1001 1402 JE 78 YES 
12894+% TURESUL BIT 13---SOLID READ CHECKS 0O0O2E1C 4A4B 1403 <BTS (R2 1) FAILURES NOT CONSISTENT 
12904+* : TURESUL BIT 14---NOT USED QOO2E1E 882B 2FF4 2FE8 1404 TS1W CW DOsy, EADO HDO CTR PASS1 = HDO CTR PASS2 ? 
1291+* 4 TURESUL BIT 15---NOT USED 002F24 1001 1405 JE T51Y YES 
1292+% « O0O02E26 GA4UR 1406 TBTS (Ba, 11) FAILURES NOT CONSISTENT 
1293+4+* “ TURFSUL BIT 16---SOLID FAILURE (ID MISCOMPARE) 002E28 6802 2E94 1407 T51Y B EXIT 
1294+* : TURESUL BIT 17---NOT USED 1408 * 
1295+ TURESUL BIT 18---MISCOMPARES DETECTED 002E2C 6E0OD 2E72 1409 RDID1 MVW T510+2 SETUP RETURN ADDRESS 
12964+* _ TURESUL BIT 19---INTERRUPT 002E30 6803 310EF 1410 BAL RentD READ ID 
1297+* E 002B34 3314 1411 DC BISERRS) ERROR 
1298+% Z TURESUL BIT 20---RECAL 002E36 4&cat 1412 TBTR (Ra ER) 
12994+* : TURESUL BIT 21---SEEK 002E38 101B 1413 JOFF 1516 
1300+% é TURESUL BIT 22---NOT USED 002E3A 4CA9 1414 TBTR (R4 ,CSA) CYCLE STEAL STATS ? 
13014+* ; TURESUL BIT 23---NOT USED 002E3C 6800 3314 1415 BOFF SERRE RETURN 
1302+* * OO2ZE40 8828 292A 3000 1416 MVW CSBUFt2,STATS GET CS STATS 
13034+* if TURESUL BITS 24-31 NOT USED 002E46 4524 3000 1417 qVA  STATS,R5 
13044+% TURESUL RITS 32-47 CS STATS FOR FAILING OP OO2E4A 4D83 1418 TBTR (RS 3y NO RECORD FOUND 
1305+* : OO2ZEUC 1210 1419 JON 514 YES 
1306+* EXITS NORMAL OO2E4E 4D87 1420 TBTR (Ro 7) UNSAFE 
130 74+* RETURNS TO MDI SUPERVISOR WHEN DONE. 002E50 1211 1421 JON 515 YES 
1308+* : 002E52 4D81 1422 'RTR (B° 1) SYNC CHECK 
1309+* EXITS ERROR 002E54 1207 1423 JON YES 
1310+* RETURNS TO MDI SUPERVISOR. 002E56 4D88 1424 TBTR (B® 8) FILE DATA OK ? 
1311+* 002E58 1205 1425 JON 513 YES 
1312+* RETURN CONTROL OO2ZE5A UDBE 1426 TBTR Ae 14) BUFFER PARITY OK 
1313+% 002E5c 1001 1427 JOFF 1514 NO 
13144* B TURTN* RETURN TO MDI SUPERVISOR OO2ZE5E UAB 1428 TBTS R2,8) ATTACH BUFFER PARITY 
1315+4* 002E60 4AGA 1429 T514 TBTS (R2°10) EPROR OTHER THAN SYNC ON FILE D CK 
131 GA HR HH HK eM He Me He He HH He aK I eH eH HE ee I CC OK I oe ae 2 fe ae ae le af a a kc ae ake eae 3c 2 Rac 2c oie ic oe afc ae oe ik ac 002E62 5001 1430 J 516 
OO2CCA 6FOD 2940 1317477851 MVW  R7,TURTN SAVE RETURN ADDRESS OO2E64 GAT 1431 7513 TBTS {(R2,7 SYNC OR FILE DATA CHECK 
OO2CCE 4020 2908 7851 1318+ MUNI X°*7851' S$TUID SAVE TU ID FOR DISPLAY 002E66 4029 2FFO 0001 1432 7516 AWI ERO INC HDO READ ERROR CTR 
002CD4 4424 2902 1319+ MVA OPTNG, Rh SET UP POINTER ADRS IN R4 002E6C 5001 1433 J 7510 
002CD8 6E03 32E0 1320+ BAL $CONC; CLEAR DEV DEP STG AND CONNECT I/O BL OO2E6E 4GA4E 1434 7511 TBTS (R2,6) NO RECORD FOUND 
002CDC 3314 1321+, DC a SEERS) ERROR ADRS FOR INVALID PREP 002E70 6802 0000 1435 T510 2B *—* RETURN TO CALLER 
OO2CDE C020 0232 1323 MVB CPUID,RO DETERMINE TYPE OF PROCESSOR 1437 * 
002CE2 F025 1324 CBI 37,P0 * OO2E74 4A41 1438 7512 TBTS 4B? 1) UNSAFE 
0O2CE4 1804 1325 INE T54tc JUMP IF NOT 4955 002E76 6802 2E94 1439 51¢ EXIT . 
002CE6 4020 2D42 254c 1326 MVWI X*254C",T517142 LOAD TIME CONSTANT FOR 2 SEC OO2F7A 402E 2FEC 0001 1440 T51A SWI  1-GDSEO DEC GOOD SECT CTR (HEADO) 
002CEC 5003 1327 J T5172 002F80 6802 2DAE 1461 s) T5418 
OO2CEE 4020 2D42 OCOE 1328 T51TC MVWI X'OCOE', 1517142 (4953) LOAD TIME CONS FOR 2 SEC OO2E84 4csy 1442 T51AA TBTS (R4,20 RECAL 
002CF4 cCA25 18c8 1329 T51T2 MVWZ TURESUL,R2 LEAR RESULTS WORD 002E86 4¢53 1443 T51cC TBTS (R4O‘°19 INTERRUPT 
OO2CF8 CA25 18CA 1330 MVWZ TURESUL+2,R2 CLEAR RESULTS WORD OO2E88 8828 292A 18CC 1444 MVW SBOF+2,TURESUL+Y 
O0O2CFC CA25 18CC 1331 MVWZ TURESUL+4 (R2 CLEAR PFSULTS WORD OO2E8E 5002 1U85 J 7517 EXIT 
002D00 4224 18C8 1332 MVA TURESUL,R2 ADDRESS OF RESULTS 002F90 4c55 1446 T51BB TBTS (B4 21) SEEK 
002D04 4724 32cCC 1333 MVA  TIOBLK,R? READ DEVICE ID 002E92 SOF9 1447 J 51éc 
002D08 6009 1334 SVC — RID TEST FOR FIXED HEADS 1448 T51T TXIT EXIT 
00O2D0A 4028 32D6 0008 1335 TWI X*0008",IOMOD+4 * 002E94 6802 3364 144947519 SCONX RETURN TO MDI CONTROLLER 
002D10 1202 1336 JON TS1TYY FIXED HEADS INSTALLED VUE SO HR He MM Ke He ae He he Me He Oe 3 oh OK ie ~S RSS EE SESE SSE SSE SE SLE SELES LS SSS SE SESE SESS ES STS ESET SSF F | 
002D12 6802 2E94 1337 B T51T NO FIXED HEADS INSTALLED -EXIT 1451 * 
002D16 4020 2FE6 0000 1338 T51YY MVWI 0,PASS1 INIT PASS COUNTER 1453 COPY 17872 2 9DEC 76 
OO2DI1C 4020 2FFY 0000 1339 MVWI 0,HDOSV INIT HEAD O SAVE COMP ERR CTR 1454 SEGRWE SS 6 oa c 44 uo COUR RAED S EERE ROS a a ee oR Kah a 
002D22 4020 2FF8 0000 1340 MVWI O,EROSV INIT HEAD 0 SAVE EPR COUNTER 1455 *T7872 x 
002D28 4020 2FE8 0000 1341 T51U MVWI 0,HEADO INIT HEAD ZERO MISCOMPARE COUNTER 1456 * THIS TU INHIBITS INTERRUPT 12/01/76* 
QO2D2E 4020 2FEC 003C 1342 MVWI 66 GDSEO INIT GOOD SECTOR EQUAL 60 1457 * CALLING ROUTINE LOOPS ON T72A * 
002D34 4020 2FFO 0000 1343 MVWI 0 £RO00 INIT HEAD O ERROR COUNTER 1458 Mh Mva RI foRte OO ge WeOEE ADoREce. 
002D3A 4724 32cC 1344 MVA  TOBLK,R7 SETUP IOBLK 002E98 6F0D 2940 1459 T7872 MVW TN SAVE RETURN ADDRESS 
002D3E 6008 1345 SVC RESET ISSUE IO RESET 002F9C 4020 32D0 0020 1460 MVWI x! 6020" IODCB PREP TO LEVEL 2 WITH THE 'I* BIT OFF 
002D40 4024 0000 1346 T51T1 MVWI X'0000',RO TIME OUT 2 SEC OO2ZEA2 4724 32cc 1461 MVA OBL yRI * 
002D44 6002 1347 1751 SVC IDLE * OO2EA6 600C 1462 SVC PREPS 
002D46 BBFE 1348 Jct %751,R0 * O0O2EA8 5002 1463 3 T72B 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIS HT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
qece . BXs (R6,2) RETURN aac : eae LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS 
1696 OSORIO ORO IO RO I RO IOI IO IO I IIIOR FOR OR III RIOR IR SOR KK aia 1811 * SETUP LOGICAL SECTOR # IN LOCATION '"LGSEC! 
1697 * 1812 * PHYSICAL SECTOR # WILL BE LOADED IN LOCATION *PHYSC'* 
1698 * CE DIAGNOSTIC OP2 DATA WORD (CLOCK STEP) 1813 * 
1699 * 1814 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION 
1700 * BIT 00 - SET READY 1815 * LOGICAL- X 00, 1E, 01, 1F, 02, 20, 03, 21, O4, 22, 05, 23, 06, 24, 
1701 * BIT 01 - RESET READY 1816 * PHYSICAL X 00, 01, 02, 03, 04, 05, 06, O07, 08, 09, OA, OB, OC, OD, 
1702 * BIT 02 - SET WRITE CLOCK 1817 * 
1703 * BIT 03 - SET READ CLOCK 1818 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 
1704 * BIT O& - INDEX PULSE 1819 * PHYSICAL OE, OF, 10, 11, 12, 13, 14, 15, 16, 17: 18, 19, 1A, 1B, 
1705 * BIT 05 - SECTOR PULSE 1820 * 
1706 * BIT 06 - STANDARD PEAD DATA 1821 * LOGICAL- OE, 2C, OF, 2D, 10, 2E, 11, 2F, 12, 30, 13, 31, 14, 32, 
1707 * BIT 07 - SPEED PULSE 1822 * PHYSICAL 1c, 1D, TE, 1F, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
1708 * BIT 08 - BFHIND HOME 1823 * 
1709 * BIT 09 - SET SEEK COMPLETE 1824 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, 
1710 * BIT 10 - RESET SEEK COMPLETE 1825 * PHYSICAL 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, 
1711 * BIT 11 - PLO OUT OF SYNC 1826 * 
1712 * BIT 12 - RST RD/WERT CLOCK 1827 * LOGICAL- 1C, 3A, 1D, 3B, X 
1713 * BIT 13 - 1828 * PHYSICAL 38, 39, 3A, 3B, X 
1714 * BIT 14 - 1829 * 
1715 * BIT 15 - RESET DIAGNOSTIC MODE 1830 * 
1716 * 1831 * CALLING SEQUENCE 
WAM MSE SS SSL SOCSSS SS CSL CSL SSL SSS SPSS CSS SS CCE SS SS CSS PTT SST TS TS Ste ST SS eT er Sf 1832 * 
1718 * 1833 * BAL CONVT,R6 
1719 * 1834 * 
003002 6E0D 290E 1720 WRAP MVW R6,LSTIO SAVE ADDRESS OF LAST I0 1835 * RETURN 
003006 8028 19D0 3085 1721 MVB DEVADD, IDCBRAP+1 LOAD DEVICE ADDRESS IN IDCB 1836 * 
00300C 680C 3084 1722 Io IDCBPRAP READ SENSE WORD 1 1837 * B (TT 304+ 2) 
003010 6F05 3066 1723 BNCC 7,CCERR CHECK COND CODE 1838 * 
003014 5601 1724 BXS (R6 , 2) RETURN TO CALLER 1839 3 ROR IO III OOO IOI ICI OR Iti tok $F fo I aR I 
1725 * 1840 * 
003016 6E0D 290E 1726 CEOP1 MVW R6,LSTIO SAVE ADDRESS OF LAST I0 OO30AC 6EOD 30EC 1841 CONVT MVW TT3044+2 SETUP RETURN ADDR 
OO301A 8028 19D0O 307D 1727 MVB DEVADD TIDCBCE1+1 LOAD DEVICE ADDRESS IN IDCB 0030B0 802B 2F72 2F91 1842 CB Bee Sa LGSEC#1 CK FOR LOG # ZERO 
003020 680C 307C 1728 Io 7 Cae CE{ SET DIAGNOSTIC MODE 0030B6 100D 1843 JE TT30 3° BCH IF LOG # IS ZERO 
003024 6F05 3066 1729 BNCC CCERR CHECK COND CODE 0030B8 802B 2F91 2F94 1844 CB LGSEC+1,CB29 COMP LOG TO 29 
003028 5601 1730 BXxs Hass 2) RETURN TO CALLER OO30BE 1COD 1845 JGE RTTO1 BCH IF LGSEC EQ OF LESS THAN CB29 
1731 * 0030CO 4024 0002 1846 MVWI 2,R0 SETUP MULTIPLIER 
00302A 6E0OD 290E 1732 CEOP2 MVW To SAVE ADDRESS OF LAST I0 0030C4 E821 2F91 1847 MB LGSEC+1,R0 LOG SECTOR # TIMES 2 
00302E 8028 19D0 3081 1733 MVB HeGtna” IDCBCE2+1 LOAD DEVICE ADDRESS IN IDCB 0030C8 7802 003C 1848 SWI 60,R0 LOG SEC TIMES 2 MINUS 60 
003034 680c 3080 1734 Io TDCBCE2 WRITE DIAG CLOCK STEP 0030CC C028 2F93 1849 MVB RO,PHYSC+1 PHYSICAL SECTOR NUMBER 
003038 6F05 3066 1735 BNCC 603) CHECK COND CODE 0030D0 500C 1850 J TT304 RETURN TO CALLER 
00303Cc 5601 1736 BXS USS RETURN TO CALLER 0030D2 8028 2F96 2F93 1851 TT303 MVB FIVE9, PHYSC+1 PHYSICAL SECTOR # 59 
1737 * 0030D8 5008 1852 J TT 304" RETURN TO CALLER 
1738 * OO30DA 4024 0002 1853 RITO1 MVWI LOAD MULTIPLIER 
00303E 6E0D 290E 1739 SENS1 MVW Io SAVE ADDRESS OF LAST I0 OO030DE E821 2F91 1854 MB LésEc+, PO LOG SECTOR # TIMES 2 
003042 8028 19D0 3079 1740 MVB DEUADD, IDCB1+1 LOAD DEVICE ADDRESS IN IDCB O0030E2 7802 0001 1855 SWI SUBTRACT ONE 
003048 680cC 3078 1741 Io ID READ SENSE WORD 2 OO30E6 C028 2F93 1856 MVB ROe PHYSC+1 LOAD PHYSICAL SECTOR # 
00304C 6F05 3066 1742 BNCC ECEPE CHECK COND CODE OO30EA 6802 0000 1857 TT304 B -* RETURN TO CALLER 
003050 5601 1743 BXS ‘hes RETURN TO CALLER 1858 * 
1744 * 1859 [CO OOO Ok ok km ak IK Ia ak ik foi te IC ake ck 
003052 6EOD 290E 1745 SENSO MVW TIO SAVE ADDFESS OF LAST I0 1860 * 
003056 8028 19D0O 3075 1746 MVB BEGADD LDCBO+1 LOAD DEVICE ADDRESS IN IDCB 1861 * SUBROUTINE 
00305cC 680C 3074 1747 To I DCBO READ SENSE WORD 1 1862 * 
003060 6F05 3066 1748 BNCC 7,CCERRP CHECK COND CODE / 1863 * PURPOSE 
003064 5601 1749 BXS (k6,2) RETURN TO CALLER 1864 * 
1750 * 1865 * LOAD WRITE SECTOR ID DATA BOYFFER FROM RD SEC ID BUFFER 
003066 T706E 1751 CCERR DC X*706E® COPY STATUS ANY LEVEL INTO R3 1866 * 
003068 336A 1752 SRL 32 R3 POSITION CC CODE TO BITS 13-15 1867 * CALLING SEQUENCE 
00306A C328 290A 1753 MVB "STOIN PUT IN LOG AREA 1868 * 
O0306E 68D2 0000 \iee " B TRE} RETURN TO USER 508 : BAL LWSID,R6 
003072 6F05 1756 IORST DC saat RESET I0 1871 * RETURN 
003074 2205 1757 IDCBO DC X*2205!8 SENSE WORD ZERO 1872 * 
003076 0000 1758 RDATAO DC 2195" DATA WORD 1873 * BXs (26) 
003078 2105 1759 IDCB1 DC X¥*210 SENSE WORD ONE 1874 * 
00307A 0000 1760 RDATA DC varie 1875 RC dak la ICCC RO io II io loi GIO iti ok i tok a OI ke tok keke te ate ake ok 
00307C 4005 1761 IDCBCE1 DC x*400 CE DIAG OP! 1876 * 
00307E 0000 1762 CEDAT DC 7 eee SENSE DATA 1877 * 
003080 4105 1763 IDCBCE2 DC xX*410 CE DIAG OP2 OO3Z30EE G724 0005 1878 LWSID MVWI 5,R7 BYTE COUNT 
003082 0000 1764 CEDAT2 DC A ( pnb SENSE D OO30F2 4324 2911 1879 MVA SETID #1 R3 ADDR OF RD SECT ID DATA BUFFER 
003084 2F05 1765 IDCBRAP DC x't2F0 READ DIAG WRAP OO030F6 4524 2F98 1880 MVA WRSID,R5 ADDR OF WR SECT ID DATA BUFFER 
003086 0000 1766 RPAPDAT DC The SENSE DATA OO30FA 2BA4 1881 MVFN (Re 7 (B5) MOV DATA FROM RD TO WR BUFFER 
000232 eg ae ae EQU) xX'023 CPU ID O0O030FC 5600 sees ‘ BXS R6 RETURN TO CALLER 
1770 COPY fT78I0 O1DFC76 1885 * 
1771 ** TO) 1886 * EXECUTE INPUT & OUTPUT COMMANDS 
VDDD RR I A A HO 2/0 1/7 6 I I I OR IO FC Ro Foo oR dR ak 1887 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
1773 * 1888 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PAPAMETER 
1774 * SUBROUTINE 1889 * LIST AND ANY SPECIAL SWITCHES BFFORE BRANCHING TO TRE 
1775 * 1890 * SUPVR CALL. 
1776 * PURPOSE 1891 * ‘6 
1777 * 1892 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
1778 * COMPARE PEAD SECTOR ID DATA TO WRITE SECTOR ID DATA 1893 * - 
1779 * NORMAL AND TEST DATA. 1894 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
1780 * 1895 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
1781 * CALLING SEQUENCE 1896 * 
1782 * 1897 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
1783 * BAL CMPRW,R6 NORMAL) 1898 * i 
ane : BAL CMPFT, "RE TEST) aaa : 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 
1786 : RETURN 1802 : 2 BAL SWKST,R6 WRITE SECTOR ID SKEWED (TEST) 
a4a8 : BXS (86,2) = NORMAL ‘eon . 3 BAL SRWST,P6 READ SECTOR ID SKEWED (TEST) 
1790 * 1905 * 4 BAL SRIDS,F6 READ SECTOR ID (TEST) 
179.1 RR IRI ICI IGOR IG IORI IIR II IO SR II ER $k J 2k dak ok coke 1906 * < 
1792 * 1907 * 5 BAL SWKEW,R6 WRITE SECTOR ID SKEWED 
003088 4724 0005 1793 CMPRT MVWI BYTE COUNT 1908 * : 
00308C 4324 2FA7 1794 MVA pe R3 ADDR OF RD SECT ID DATA TEST 1909 * 6 BAL SWSEC,F6 WRITE SECTOR ID 
003090 8524 2FAO 1795 MVA WSIDT, R5 ADDP OF WR SECT ID DATA (TEST 1910 * ie 
003094 5006 1796 J ane 1911 * 7 BAL SWSTS,F6 WRITE SECTOF ID (TEST 
003096 4724 0005 1797 CMPRW MVWI COMPARE BYTE COUNT 1912 * z 
OO309A 4324 2911 1798 MVA one P3 ADDR OF RD SEC ID DATA 1913 * 8 BAL SDIAG,R6 DIAGNOSTIC 
OO309E 4524 2F98 1799 MVA WRSID,R5 ADDR OF WR oe ID DATA 1914 * Z 
0030 A2 2BA6 1800 TT4Y CFNEN (R3), (R5) COMPARE ID 1915 * 9 BAL XIOCS,R6 CYCLE STEAL STATUS 
QO030A4 68C0 0002 1801 BE R6 5) BCH TF WRITE AyD DATA OK 1916 * é 
0030A8 68D2 0000 ee m B R6) * CCMUPARE ERROR LE : 10 BAL SSEEK ,R6 SEEK 
ESD MEET ES TSCC OC OCCSSCCSCL SCLC S SS CLS SCS CS SS CST CSS TP SSL TS PST CS SSCL SS PTS SS LS SL eS 2 1919 * 11 BAL SRECL,R6 RECALIBRATE 
1805 * 1920 * ‘ 
1806 * SUBROUTINE 1921 * 12 BAL SFDID,P6 READ SECTOR ID 
1807 * 1922 * ss 
1808 * PURPOSE 1923 * 13 BAL SRD, 6 READ 
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SOURCE STATEMENT 


1924 * 3 2038+* --> BAL XTOCS-4,F6 AUTO CS STATUS (FOLLOWING OTHER XIO 
1925 * 14 BAL SRDVY,RE READ VERIFY ee “4 AND DOES NOT POST INTERRUPT STATUS) 
1926 * - + 
eee ei 15 BAL SWRT,RO6 WRITE ca Bs RETURN CONTROL 
1368 3 ses on FT? a? SHURE Teo" T ocd Eifon 
+ 
Oaork eaee 32D0 2F02 sone SSEEK Pie a i SET UP CONTROL BLOCK FOR SVC CALL pe 542 4dpRAGLUA S45 HAMAS WAGRONTRNEADE RRO RK OSE AA TE OR KES Ko04sseRee wee ees ee 
1932 * 0031CE CB25 32D2 2047+XI0O MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
BOs oe aya 32D0 2EC2 soa $RECL oo Ta a SET UP BLOCK FOR SVC CALL 0031D2 500A en J XIO1 CS I/O"S ARE NOT RETRIED 
1935 * . 0031D4 QCAA 2050+ TBTR ae CE RESET CS STATUS INTER ERROR INDICAT. 
00310E 4020 32D0 2EE2 1936 S$RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 0031D6 4Cc68 2051+ TBTS cS SET "CYCLE STEAL STATUS! IW PROGRESS 
003114 OBFF 1937 MVBI X'FF* 7R3 SET BUFFER TO F'S 0031D8 4020 32D0 2F12 2052+XIOCS MVA SDB ODCB SET UP CONTROL BLOCK FOR SVC CALL 
003116 4524 2910 1938 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 0031DE 4020 32D2 OOOF 2053+ MVWT Xf OOOF*, ITOMOD SET CYCLE STEAL MODIFIER 
Q00311A 4724 0006 1939 MVWI 6,R7 SETUP BUFFER LENGTH 0031E4 4C28 2054+ TBT ts CS) IS CS IN PhOe aaoe ERROR Soneaaee 
00311E 2BAC 1940 FFN R3 AB), INIT READ SECTOR ID BUFFER 0031E6 1213 2055+ JON 02 * YES, BYPASS SAVING I/O ADRS 
003120 4020 2EFO 2910 1941 MVA sc&Tp,RSDCB+14 DATA ADDR 0031EF8 G6EOD 2908 2056+XI01 MVW  R6,LSTIO SAVE fAR FOR RETRY IF REQUESTED 
003126 5053 1942 J XIO 0031EC 4324 2918 2057+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
1943 * 0031F0 6D08 32D0 2058+ MVW® TODCB,R5 * AND THE PROM ADRS, ALONG WITH 
003128 OBFF 1944 SRD MVBI X*FF!,R3 SETRD BUFFER TO ALL F'S 0031F4 OF10 2059+ MVBI 16,87 * THE NUMBER OF MOVES 
00312A 6D08 2F50 1945 MVW RDDCB# 14 R5 SET UP READ BUFFER ADRS 0031F6 2D64 2060+ MVFN JR) 483) MOVE 1 STATUS WORD AND ADJUST 
00312E 4724 0100 1946 MVWI a 0100° yk7 SET UP BUFFER LENGTH 0031F8 OBFF 2061+ MVBI 55 fh CLEAR CYCLE STATUS BUFFER 
003132 2BAC 1947 FFN Ae 5) CLEAR READ BUFFFR 0031FA 4524 2928 2062+ MVA CSBOF,R5 * TO ALL ONES * 
003134 4020 32D0 2F42 1948 SRDS MVA FDS B,TODCB SET UP BLOCK FOR SVC CALL OO31FE OF1O 2063+ MVBI 16,R7 * 
00313A 5049 1949 J XI 003200 2BAC 2064+ FFN R3 {P31 * 
1950 * 003202 4020 290A 0708 2065+ MVWI x6 08',$TOIN OVERLAY OLD CONDITION CODES 
00313C 4020 32D0 2F32 1951 $S$RDVY MVA VRDCE,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003208 CE25 290C 2066+ MVWZ SISB,RP3 ZERO OUT OLD ISE VALUE 
003142 5045 1952 J XIO 2067+* 
1953 * 00320C 4CA1 2068+ TBTR R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
003144 =4020 2F22 1954 SWRT MVA WRDCB,ITODCB SET UP CONTROL BLOCK FOR SVC CALL 00320E 4CA3 2069+XIO2 TBTR P4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
00374A 5041 1955 J XIO 003210 4724 32CC 2070+ MVA OBLK SET UP CONTROL BLOCK FOR SUPVR 
1956 * 003214 4CA6 2071+ TBTR RG, SLE RESET LEVEL ERROR INDICATOR 
00314C 4020 2F62 1957 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003216 4&C62 2072+ TBTS R4,XT) SET EXPECTED INTR CONTROL BIT 
003152 OBFF 1958 MVBI X'FF? ‘R3 SET BUFFER TO FS 003218 600A 2073+ svc TALT CALL SUPVR FOR I/O COMMAND 
003154 4524 1959 MVA gh TRS SETUP READ SECTOR ID BUFFER ADRS 20744+% 
003158 4724 1960 MVWI 7 SETUP BUFFER LENGTH 0O0321A CAT 2075+ TBTR (Per 3y) IS AN IJNTR EXPECTED 
00315C 2BAC 1961 FFN AB of INIT READ SECTOR ID BUFFER 00321C 6ACO 0002 2076+ BN R6,2) * NO, FRETURN TO USER 
00315E 4020 2940 1962 MVA RS D,RKDCB+14 DATA ADDR 2077+% 
003164 5034 teen ‘ J XITO ne. THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
1 + 
003166 4020 2F52 1965 SWKST MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003220 0O0D00 2080+ MVBI X*00't,R5 SET UP WORK REG FOR "LOST INTR!® 
00316C 4020 2FAO 1966 MVA WSIDT, "WKDCB+14 DATA ADDR 003222 4CA3 2081+XI08 TBTR dt th) HAS INTERRUPT BEEN RECEIVED 
003172 =502D 1967 J XTO 003224 1238 2082+ JON TocK * YES, CHECK IF ALL WAS SATISFACTORY 
1968 * 003226 6002 2083+ SVC IDLE ALLOW. ANOTHER PPOGRAM A CHANCE TO RUN 
003174 =4020 2F62 1969 SRWST MVA RKDCB,1IODCB SET UP CONTROL BLOCK FOR SVC CALL 20844+* SUPVR WILL RETURN HERE 
00317A 4020 2FA6 1970 MVA SCTS Ts “RKDCB+14 DATA ADDF 003228 7DA1 0001 2085+ AWL 1,R5 ADVANCE TIME OUT COUNT 
003180 5026 1971 XIO 00322C 18FA 2086+ JINZ xto 8 BCH IF TIME OUT NOT REACHED 
1972 * 00322E 4C61 2087+ TBTS BPs ER) SET ON ERROR CONTROL BIT 
003182 4020 2EE2 1973 SRIDS MVA RSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003230 68D2 0000 2088+ B of * ERR 'NO INTERRUPT! 
003188 OBFF 1974 MVBI X'FF!,R3 SET BUFFER TO FIS co0G, enekheeeeeeees FCI RR ROR IOI RII I Sok RIK Sok tok kK OOF EB 6 ** 
00318A 4524 1975 MVA SCIST;, oO SETUP READ SECTOR ID BUFFER ADRS 2091+* 
O00318E Q724 1976 MVWI 7 SETUP BUFFER LENGTH 2092+* SUBROUTINE 
003192 2BAC 1977 FFN R3 pg! INIT READ SECTOR ID BUFFEP 2093+* 
003194 4020 2FA6 1978 MVA SC&ST, SDCB4+14 DATA ADDR 2094+4+* I/O EXECUTE ERROR HANDLING ROUTINE 
00319A 5019 1979 J XIO 2095+* 
1980 * 2096+* EBURPOSE 
00319C 4020 2F52 1981 SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2097+* 
0031A2 4020 2F98 1982 MVA WRSID,WKDCBt14 DATA ADDR 2098+* THIS ROUTINE WILL COLLECT Te azo e TO HELP DETERMINE THE 
0031A8 5012 1983 J XIO 2099+* PROBLEM THAT WAS FOUND WHEN I/O COMMAND WAS ISSUED BY THE 
1984 * 2100+* SUPERVISOR AND IT WAS NOT RCCEETED. 
OO31AA 4020 2ED2 1985 SWSEC MVA WSDCB, IODCB SET UP CONTPOL BLOCK FOR SVC CALL 21014+* 
0031B0 4020 2F98 1986 MVA WRSID, WSDCB+14 DATA ADDR 2102+* CALLING SEQUENCE 
0031B6 500B 1987 J X 2103+* 
003188 4020 2ED2 1988 $WSTS MVA WSDCB, IODCB SET JP CONTROL BLOCK FOR SVC CALL 2104+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AWN 1/0 COMMAND 
0031BE 4020 2FAO 1989 MVA WSIDT, WSDCB+14 DATA ADDR 2105+* 
0031C4 5004 teoaq J ae RETURN CONTROL 
+ 
0031C6 4020 32D0 2EB2 1992 $DIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2108+%* B (P6) * RETURN TO USERS ERROR HANDLER 
0031CC 5000 1993 J XIO 2109+* 
1994 XEQTT 2110 + RR ROR RII RII III I ROR ira aI IO IR IGRI a ak ok te eke ak ote ak a kc kc ake ake ai kc cok 
4995 4 RR RC ROR RR IO RO RII OI OI ROR I RIOR RI FOR I HOR KIO TIL 76 ** 94114 ; 
1996+* 2112+* CC O= DEVICE NOT ATTACHED 
19974+* SUB-ROUTINE 2113+* FOR 1= DEVICE BUSY 
1998+* 2114+* T/O 2= DEVICE BUSY AFTER RESET 
1999+* EXECUTE INEFUT AND OUTPUT COMMANDS 2115+4* 3= CCMMAND REJECT 
2000+* 2116+ * 4= INTERVENTION REQUIRED 
2001+* PURPOSE 211 7+* 5= INTERFACE DATA CHECK 
2002+* 21184+* 6= CONTROLLER BUSY 
2003+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2119+%* 7= I/O COMMAND EXCEPTED 
20044* THIS SUBPOUTINE WILL DO THE FOLLOWING FUNCTIONS: 2120+* 
2005+* 003234 JO6E 2121+#XIOER DC X*7O6E* COPY STATUS ANY LEVEL INTO PF3 
2006+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 003236 336€A 2122+ SRL 13,83 POSITION CC CODE TO BITS 13-15 
2007+* THE I/O COMMAND. 003238 C328 290A 2123+ ave R3,$I0IN * PUT IN LOG OUT AREA 
2008+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 00323C 68D2 0000 2124+ (RG) + RETURN TO USER ERROR HANDLER 
2009+4+* ISSUED BY THIS SUBROUTINE. SiGe iy seeseeuuaes se SOI IGOR akc gol ictok dak iokadekk kok ak tok ok ck 7 A PR 7 6X 
20104+* 3. CLEAP OUT THE CYCLE STEAL STATUS STOPAGE UNLESS THE 21274+%* L 
2011+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 2128+* SUB-ROUTINE TL 
2012+* 4“. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 2129+* TL 
2013+* SINCE THE LAST EXPECTED INTERPUPT. IF an INTEPRPUPT IS FOUND, 2130+* ERROP INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL! TL 
2014+ MYSTERY INTERRUPT sare CONTROL BIT ITS SET. 2131+* IL 
2015+* 5- MOVES THE ADDRESS OF THE I/0 CONTROL BLOCK IN SET THE 2132+* PURPOSE IL 
2016+* EXPECTED INTERRUPT CONTPOL BIT AND ISSUE THE Rie STAPT?®. 2133+* TL 
20174* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 2134+ THIS FOUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN EFPROR IL 
20184* STARTS TO DETERMINE A LOST INTERPUPT. 2135+* OR THE INTERPFUPTING CONDITION CODE DOFS NOT AGREE WITH THE IL 
2019+* 7. EXCEPT THE INTEPRUPT AND GATHER INFORMATION TO DETEPMINE IF IT 2136+* EXPECTED CODE. TL 
2020+* WAS AN EPROR OF OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2137+* IL 
2021+* 8. CHECK IF THERE WAS A WRONG INTFRRUPT LEVEL. 2138+* CALLING SEQUENCE IL 
2022+%* 9. CHECK IF AN ERROFP WAS FXPECTED AND IF THERE WAS PETUPN. 2139+* TL 
2023+%* 10. CHECK IF THERE WAS AN ERROP CONDITION, IF NOT RETURN. 2140+4+* SUPVR WILL ENTER WHEN AN ERROR OCCURS OW AN I/O INTERRUPT iG 
20244+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 2141+4+% IL 
2025+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGFESS THAT WAS 21424+* PETURN CONTROL Tis 
2026+* ISSUED BY THIS SUBROUTINE. 2T434+% TL 
2027+%* 13. CHECK THE ISB PITS THAT ARF ON. IF BIT O IS ON ISSUE A 21444 SVC EXIT RETUFN TO USER VIA SUPVR LE 
2028+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 2145+* IL 
2029+* COUNT IT AND SET UP THE FROFERK ERFPOR MESSAGE TO RE PPINTED. DTG RR RRR RK RO OR IORI III IIR IK I II Fo dom io dk dk kook kok tk T 7 
2030 214 74% TL 
2031+* CALLING SEQUENCE 21484+* CC O= CONTROLLER END ISB = ADD STATUS IL 
2032+* 21494+* FOR 1= PROGRAM CONTROL INTERRUPT BITS = COMD REJECT IL 
2033+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2150+* INTP 2= EXCEPTION INTERRUPT FOR = INCOR LENGTH IL 
2034+4+* 2151+ 3= DEVICE END INTERRUPT INT® = DCB SPEC CK IL 
2035+* --> BAL XIO OR XFC ANY CYCLE STEAL COMMAND, MOD=0 2152+* Y= ATTENTION INTERRUPT = STG DATA CK LL 
20364+* --> BAL XI01 MOD PARM PRELOADED IN ‘TOmMOD! 2153+* 5= ATTENTION / PROGRAM CNTL INTR = INV STG ADRS IL 
2037+* --> BAL XIOCS,F6 OR XEQ STAPT CYCLE STEAL STATUS, MOD=F 21544* 6= ATTENTION / EXCEPTION INTP = PROTRCT CK TL 
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21554+* 7= ATTENTION / DEVICE END INTR J= I-FACE DATA LL 2272+* 
2156+4+* TL 2273+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND % 
003240 JO6E 21574+INTER DC X'*706E* COPY STATUS ANY LEVEL INTO R3 IL 22744 PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
003242 336A 2158+ SPL 13,3 POSITION INDICATORS IN R3 IL 2275+* TO INTERRUPT. 
003244 4424 2902 2159+ MVA OPtn1 PY SET UP PASE ADPFPS TI 2276+* 
003248 4C28 2160+ TBT {on c§) IS CS IN PROGRESS LL 2277+* CALLING SEQUENCE 
00324A 1006 2161+ JOFF INTES *" NO IL 22784* 
00324C 4C6A 2162+ TBTS (R4 coy TORN ON CYCLF STEAL INTER ERROR IL 2279+ THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
OO324E 6F0D 2936 2163+ MVW R7,CST 8 SAVE CS EPR ISB VALUF, BITS 0-7 TL 2280+4+* 
003252 C328 2937 2164+ MVB R3,CSTL8+1 * AND THE COND CODE IL 2281+* --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
003256 SOOA 2165+ J NER 1 TL 2282+* --> BAL SCONP,F6 PPEPARE DEVICE ONLY, ALREADY CONNECT 
003258 uC2U 21664+INTES TBT a XE) TEST EXPECTED ATTEN / ERROR IND IL 2283+* 
00325A 1002 2167+ : JOFF NTET BCH IF NOT EXPECTED IL 2284+* RETURN CONTROL 
00325C F304 2168+ CBI 4,R3 IS THIS AN ‘ATTENTION! INTR TL 2285+* 
00325E 1006 2169+ JE INTR1 * YES BCH TO END INTR SEQUENCE IL 2286+* BXS R6, 2) RETURN TO USER VIA REG 6 IF OKAY 
003260 4c61 2170+INTET TBTS (R4 ER) SET ERROR ON I/O COMMAND CNTL BIT IL 2287+* OR B R6f * TF THE DEVICE COULD NOT BE CONNECTED 
003262 5004 21714 J TNTR1 IL 2288+ 
21724 THE ERROR INTERRUPT USES THE SAME TIL 22 894+ RR IO IC IOI IO OR IO EI RRO III Ii io aki toto kak oe ak 
2173+% ENDING SEQUENCE AS THE NORMAL INTR IL 0032E0 OFO06 2290+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
2175 4 RRR RI RI RIO IO OR GO oii doiok gota ottoiook tokio TU ADR 76TL 0032E2 OB00 2291+ MVBI O,R3 * AND THE DATA TO USE 
2176+* LL OO0O32E4 4524 2910 2292+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 
2177+* SOUBROUTINE TL 0032E8 2BAC 2293+ FFN R3 (5) * 
2178+* TL OO32EA CB25 2906 2294+ MVWZ OPT N3, 3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
2179+* OKAY INTEEFRUPT RUNS ON INTFRRUPT LEVEL 'SINTL! IL OO32EE 4724 32D8 2295+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
2180+* IL 0032F2 6014 2296+ SVC CICEB * CONNECT IT TO THIS DEVICE 
epi es PURPOSE a 0032F4 6ADO 0000 oan BN (R6) * ERROR RETURN TO USER 
+ + 
2183+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST Bie & 0032F8 8828 293EF 32D0 2299+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTF PARAMETER 
2184+* TL OO32FE 4724 32CC 2300+ MVA TOBLK,R7 SET R7V TO CONTROL BLOCK TO PREPARE 
2185+* CALLING SEQUENCE IL 003302 4020 290A 0708 2301+ MVWI X¥'0708' ,SIOIN INITIALIZE CONDITION CODE STORAGE 
2186+* TL 003308 CB25 290C 2302+ MVWZ S$ISB,R3 * AND CLEAR OLD ISB VALUE 
2187+* SUPEP VISOR WILL ENTER HERE IF INTP CC IS AS REQUESTED TL 00330C 6E0D 2908 2303+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
2188+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 003310 600C 23044 svc PREP * AND CALL ON SUPVR 
2189+ AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 003312 5601 2305+ BXS (R6,2) RETURN TO USER 
2190+* COMMON SECTION IS HANDLED HERE. TL 23074208 FI FORO OOO OI OGG OK doi kaa dotetoick tek 06 A PR 76 4k 
2191+%* TL 2308+* 
2192+* PETURN CONTROL TL 2309+* SUBROUTINE 
2193+4+%* IL 2310+* 
es SVC EXIT RETURN TO USER VIA SUPVR EL cE ais DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
+ + 
2196+ RI ROO IO ICI IC OR IC IO IIR ik kilok kok oki katoi tet teak tot kok T 7 2313+* PURPOSE 
003264 706E 2197+INTOK DC X'706E! COPY STATUS ANY LEVEL INTO R3 IL 2314+* 
003266 336A 2198+ SRL 13,R3 POSITION INDICATORS IN R3 TL 2315+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003268 4424 2902 2199+ MVA = OP#'N'1,R4 SET UP BASE ADRS TL 2316+* SET THE 'NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
00326C 4c63 22004INTR1 TBTS tenes SET INTERRUPT RECEIVED ime 2317+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
00326E 4C28 2201+ TBT R4,CS IS "CS IN PROGRESS! ON IL 2318+* 
003270 1204 2202+ JON INnTR2 * YES, BCH AROUND UPDATE TL 2319+* CALLING SEQUENCE 
003272 C328 290B 2203+ MVB R3,SIOIN+1 SAVE {NTERRUPTING CC CODE IL 2320+* 
003276 6FO0D 290C 2204+ MVW P7,$SISB SAVE INTR STATUS AND DEV ADRS IL 2321+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
OO0327A 2205+INTPR2 EQU x IL 2322+* 
2206+* CPCL R5 CURRENT LEVEL COPIED BY DCP TL 2323+* --> B SERRS$ SET 'NG*t BIT AND CONVERT DATA TO LOG 
O0327A 3521 2207+ SLL 4,R5 POSITION INTR LEVEL AND PUT TL 2324+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
00327cC 0501 2208+ ABI 1,P5 * IN 'I' BIT IL 2325+ 
OO327E CD24 293E 2209+ CW SENTL,RS TS THIS THE CORRECT INTR LEVEL TL 2326+* RETURN CONTROL 
003282 1002 2210+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 2327+%* 
003284 4C66 2211+ TBTS R4, SLE) SET INTR LEVEL ERROR CONTROL BIT IL 2328+* B TURTN* RETURN TO MDI 
003286 4C61 2212+ TBTS R4,ER SET ERPFOPR ON I/O COMMAND CNTL BIT IL 2329+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
003288 4CA2 2213+INTR3 TBTR RY ,XI WAS INTERRUPT EXPECTED TL 2330+* 
00328A 1204 2214+ JON wrbx * YES, EXIT OFF THIS INTR LEVEL IL 23314 ROR IOI IOI ICR 2 RR OI IO OR ROI IOI tok gai kc kak tok koto ita ate fe ik ak ake ak ak 
00328C 4cé60 2215+ TBTS (R4 , MT) * NO, SET MYSTERY INTR CONTROL BIT IL 003314 4020 1818 8000 2332+5ERRS MVWI X*'*8000' ,TUSTATUS SET ON *'NO GOOD! STATUS BIT 
00328E F304 2216+ CBI 4, R3 ATTENTION INTERRUPT? TL Q00331A 4724 347E 2333+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 
003290 1001 2217+ JE TATRX YES Th 00331E 601A 23344 VC HTOE CONVERT HEX TO EBC VIS DCP 
003292 4C6C 2218+ TBTS Af NG) ERROR,UNEXPECTED INTERRUPT TL 003320 OQD03 2335+SPRNT MVBI 3,R5 
003294 6006 2219+INTRX SVC XI EXIT THIS LEVEL VIA SUPVR TO PGM IL 003322 4324 181A 2336+ MVA TOWORK R3 SET UP RUFFER STORAGE 
2221+ RE I IG ORC Ro oi a iokiok ok okaiotkokokdokkokQ 3P RP B76 kx 003326 6BO0D 3476 2337+ MVW R3 BUFPT 
2222+% 00332A 4124 33A6 2338+ MVA  LINE1,R1 
2223+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 00332E OFOY4 2339+ MVBI 4,F7 
2224+ HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 003330 0OE08 2340+ MVBI 8,F6 
2225+* RECEIVFD AND BRANCHES HEPE TO CHECK FOR ANY EFROR CONDITIONS. 003332 2B24 23414+MVBUF MVFN (R3) , (R1) 
2226+* 003334 OFO4 2342+ MVBI 4 
2227+* 003336 OA4O 2343+ MVBI xX'4Ot,R2 
003296 4CAY 2228+XIOCK TBIR RY, XE) WAS AN ERROR EXPECTED 003338 C258 2344+ MVB R2 api + 
003298 6ACO 0002 2229+ BN Seer * YES, EXIT THIS ROUTINE 00333A BEFB 2345+ JCT MVB F,R6 
00329C 4CAB8B 2230+ TBTR R4Y,CS) WAS abtro CS IN PROGRESS 00333C OEO8 2346+ MVBI 8,R6 
00329F 1006 2231+ JOFF xXIOcV * NO, CONTINUE CHECKING 00333E 7921 002c 2347+ AWI 44 .R1 
OO032A0 4C2A 2232+ TBT seo CE) Is cs IN AN ERR CONDITION 003342 #£=BDFT7 2348+ JCT MVBUF R5 
0032A2 1002 2233+ JOFF Too * NO, BCH 003344 4020 1802 FIFO 2349+ MVWI PIDMSG610 PID+2 
0032A4 68D2 0000 2234+ B R6) * cs ERROR 00334A 4020 19B8 347C¢ 2350+ MVA  FAKETU,@DCADD1 
0032A8 4CAH9 2235+#XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 003350 4020 19BA 3478 2351+ MVA DC2FT aDCADD2 
OO32AA 5601 2236+ BXS F6,2 GO TO USER 003356 402C 19C4 0080 2352+ OWI BIT0080 SUPSTAT 
0032AC 4C21 2237+XIOCV TBT R4,ER) WAS ERPOFR INTR CONTROL BIT ON 00335C 4324 2908 2353+ MVA STUID R3 SET UP BUFFER STORAGE 
OO0O32AE 100B ee JOFF Tocx * NO, EXIT THIS ROUTINE 003360 6F13 18BA pac te BAL TUMSGATR*,R7 GO TO MESSAGE WRITER 
+ + 
0032B0 C520 290B 2240+ MVB $IOIN+1,R5 GET LAST INTR CC CODE 003364 2356+ SCONX EOu * 
0032B4 F502 2241+ CBI 2,R5 IS THIS CC=2 003364 C720 19D0 2357+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
0032B6 68D1 0000 2242+ BNE (Re) * * NO, BCH TO ERROR HANDLER 003368 6013 2358+ SVC RICB RELEASE ITNTERRUPT CONTROL BLOCK 
0032BA C520 290C 22434+XIOCO MVB ISB,R5 cet LAST ISB DATA BYTE AND IF CS 00336A 6812 2940 2359+ B TURTN* RETURN TO MDI SUPERVISOR 
0032BE 6A00 31D4 2244+ BN xroc$§-4 * AVATLABLE, GO AND GET IT 2360+* 
0032C2 68D2 0000 2245+ B Aah Bag ERROR O00336E 0007 2361*BEGIN DC A (0007 NUMBER OF LINES TO PRINT 
0032C6 CB25 2906 2246*XIOCX MVWZ OPTN3,F3 CLEAR OUT OPTION 3 CNTL BITS 003370 0008 2362+ DC A (0008 LINE LENGTH = 8 CHAR 
0032CA 5601 2247+ BXS (R6,2$ RETURN TO USER VIA REG 6 003372 5cC5C40C1C2D6D9E3 2363+ DC C'***x ABORT? 
224 84+* 00337A 0028 2364+ DC A (0040) LINE LENGTH = 40 CHAR 
22494* I/O PARAMETER LIST 00337C E3Z3E4C9SCKH4OCIDECID 2365+ DC C'TUID IOIN ISB INST DEV1 DEV2 DEV3 DEVY ! 
2250+4+* 0033A4 0028 2366+ DC A (0040) LINE LENGTH = 40 CHAR 
0032CC 19D0 2251#IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 0033A6 YOSOKOKOUOROGOKON 23674+LINE1 DC ct t 
0032CE 3234 2252+ DC A (XIOER) ERROR ROUTINE ADRS 0033CE 0028 2368+ DC A (0040) LINE LENGTH = 4O CHAR 
0032D0 0000 2253+#IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 0033D0 C3D5E3D340C4UC3C2F 2369+ DC C*CNTL DCB2 DCB3 DCB4& DCB5 CHAD BYCT ADRS !# 
0032D2 0000 22544+IOMOD DC A (*-* MODIFIER 0033F8 0028 2370+ DC A (0040) LINE LENGTH = 4O CHAR 
0032D4 0000 2255+ DC A (*-* ADRS OF LAST SVC CALL OO33FA Y4O4O4OUO4OKOLO4OY 23714+LINE2 ODC Cc? t 
0032D6 0000 2256+TORSP DC A (*-* SECOND WORD OF LAST IDCB 003422 0028 2372+ DC A (0040) INE LENGTH = &0O CHAR 
2257+* 003424 DIYEZCICHYOC3ZE2Z60F 2373+ DC C*RSID CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 ! 
2258+* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS O00344C 0028 23744 DC A (0040) LINE LENGTH = 4O CHAR 
2259+* OO344E Y4O4OKOKO4O4OHO4O4 2375+LINE3 DC cr e 
0032D8 19D0 2260+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 2376+* 
0032DA 3264 22614 DC A (INTOK INTERRUPT OK RETURN ADRS 003476 0000 2377#BUFPT DC A Beck 
0032DC 3240 2262+ DC A (INTER INTERRUPT ERROR ADRS 003478 336E 2378+DC2PT DC A (BEGIN) 
0032DE 0003 2263+INTCC DC X¥‘OO0O3' INTERRUPT CODE EXPECTED OO347A 0101 Z2379+FIXTU DC X'*O 101! 
226 54 HHH HH RR RRO RRR III IOI IO IIR IOI FRI IACI OK 1 MAY 76% * 00347C 0101 2380+FAKETU DC x*0101' 
2266+* OOF1FO 2381+PIDMSG10 EQU X*FIFO! 
oe ats SUBROUTINE 000080 Sans EQU X'0080* 
+ 
othe CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE ee DATA CONTROL BLOCK FOP CONVERTING HEX TO EBCDIC 
854% 
2271+* PURPOSE 00347E 0030 23864+HEBLK DC A (48) NUMBER OF BYTES TO CONVERT 
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20RD 1969 «1893 «1887 «1888 1368 1883 3622 doen 3383 
a CSTL8 oADDRESS. | HEX LOCATION (00002936) IN CSECT(I7811  ) LENGTH(2) Set Sates Bones, “HEX LOcATEON (00903202) , IN eSecr (27811  eeueen (ai 
DCBUF ADDRESS. HEX LOCATIO 02918) IN CSECT(I78 LENGTH 
2057 dancin neni cameos al. oy) tEAM 40 17811 CSECT. START (00002500) LENGTH (3972) ESDID(0) 
ae beet Oc Dea BEE POCATION CONS Sd, SRCERECN ELE). EBNSIH (2) 1619 LGSEC ADDRESS HEX LOCATION (00002F90) IN CSECT (17811 ! LENGTH (2) 
108 DEVADD ADDRESS, HEX LOCATION (00001900 re CSECT (17811 {LENGTH (1) . 1093 1104 1113 1115. 1361 1467 1373 1375 18482 
703 DEV1 ADDRESS. HEX LOCATION (00002910) IN CSECT(I7811  ) LENGTH (2) 2367 LINE1 >ADDRESS. HEX LOCATION (000033A6) IN CSECT(I7811  ) LENGTH(40) 
1478 DGDCB ADDRESS. HEX LOCATION(00002EB2) IN CSECT(I7811  ) LENGTH(2) 702 LSTIO jADDRESS. HEX LOCATION (00002908) IN CSECT (17811 ) LENGTH (2) 
70 DUMMY ABSOLUTE. HEX VALUE (00000000) | 679 MI jABSOLUTE. HEX VALUE (00000020) 
542 ENTPT ADDRESS. HEX LOCATION (00002664) IN CSECT(1I7811 ) LENGTH(1) | 2341 MVBUF oADDRESS; HEX LOCATION (00003332) IN CSECT(I7811  ) LENGTH(2) 
50 EQ ABSOLUTE. HEX VALUE (00000000) : 691 NG oABSOLOTE. HEX VALUE (0000002C) 
i Pe 10831090 ee on eo dios | 13517 1358 1412 2068 | one is Pt an ee ee ee ee 
or 2087 2170 2212 2237 | 390 N00001 ADDRESS, HEX LOCATION (00002558) IN CSECT(I7811  ) LENGTH(2) 
EROSV ADDRESS. HEX LOCATION(OOOO2FF8) IN CSECT(I7811 LENGTH (2 
ices oe 1068 Ti59"118u 1340) 1393 tho. a eae ) Seen 402 N00002 ADDRESS. HEX LOCATION (00002570) IN CSECT(I7811 ) LENGTH(2) 
1074 1146 1149 W189! 1184 1023 1343 13599 1382 414 N00003 ADDRESS. HEX LOCATION (00002584) IN CSECT(I7811  ) LENGTH(2) 
1668 ERO1 ADDRESS. HEX LOCATIQN(0QQ02FF2) IN CSECT(I7811  ) LENGTH (2) 417 NO0004 ADDRESS. HEX LOCATION (00002588) IN CSECT(I7811  ) LENGTH(2) 
1672 ER1SV ADDRESS. HEX LOCATION (00002FFA) IN CSECT(I7811  ) LENGTH (2) 429 N00005 ADDRESS. HEX LOCATION (0000259C) IN CSECT(I7811  ) LENGTH (2) 
755 EXIT jABSOLUTE. HEX VALUE (00000006) 435 N00006 ADDRESS. HEX LOCATION (00002548) IN CSECT(I7811  ) LENGTH(2) 
2380 FAKETU oADDRESS. HEX LOCATION(0000347C) IN CSECT(I7811  ) LENGTH(2) 444 N00007 ADDRESS. HEX LOCATION (000025B6) IN CSECT(I7811  ) LENGTH(2) 
1622 FIVE9 ADDRESS. HEX LOCATION(00002F96) IN CSECT(I7811  ) LENGTH(2) 453 N00008 ADDRESS. HEX LOCATION(000025C4) IN CSECT(I7811  ) LENGTH(2) 
564 F00099 ADDRESS. HEX LOCATION (0000266E) IN CSECT(I7811  ) LENGTH(1) 456 N00009 ADDRESS, HEX LOCATION (000025C8) IN CSECT(I7811 ) LENGTH (2) 
5 86 F00112 ADDRESS. HEX LOCATION (0000274A) IN CSECT(I7811  ) LENGTH (1) 459 N00010 ADDRESS. HEX LOCATION (000025CC) IN CSECT(I7811  ) LENGTH(2) 
606 F00119 ADDRESS. HEX LOCATION(000027D0) IN CSECT(I7811  ) LENGTH(1) 462 N00011 ADDRESS. HEX LOCATION (000025D0) IN CSECT(I7811  ) LENGTH (2) 
590 F00150 ADDRESS. HEX LOCATION (00002750) IN CSECT(I7811  ) LENGTH(1) 464 N00012 ADDRESS. HEX LOCATION (000025D2) IN CSECT(I7811  ) LENGTH (2) 
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Uae eRe “geen aay oe ey ee eee Sener ae 72 «PID NOB 50S tO NP ool cae gugy. tuCoecHineda) “UENCE 
1765 IDCBRAP ADDRESS. HEX LOCATION (00003084) IN CSECT(I7811  ) LENGTH(2) z4 15 16 v7 ue: 19 80 BI 82 
1757 IDCBO ADDRESS: HEX LOCATION (00003074) IN CSECT(I7811  ) LENGTH(2) 123 123 2g 123 128 12d 128 122 100 
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2260 INTBL ADDRESS. HEX LOCATION (000032D8) IN CSECT(I7811  ) LENGTH(2) 1945 1948 
2295 1195 RDID ADDRESS. HEX LOCATION(00002C3C) IN CSECT(I7811  ) LENGTH(4) 
2157 INTER ADDRESS. HEX LOCATION(00003240) IN CSECT(I7811  ) LENGTH(2) 1096 
2262 1409 RDID1 ADDRESS. HEX LOCATION(00002E2C) IN CSECT(1I7811  ) LENGTH(4) 
2166 INTES > ADDRESS. HEX LOCATION(00003258) IN CSECT(I7811  ) LENGTH(2) ae aus 1364 ne Mee auoE (penne) 
2170 INTET ADDRESS. HEX LOCATION (00003260) IN CSECT(I7811  ) LENGTH (2) 893. 1077 1131 1345 
2167 768 RICB ABSOLUTE. HEX VALUE (00000013) 
2197 INTOK oADDRESS. HEX LOCATION (00003264) IN CSECT(I7811 ) LENGTH(2) oer ee 2358 | ate sga-vadiae oODoGnIa) 
66 INTRNL ABSOLUTE. HEX VALUE (00000000) 895 1334 
498 1595 RKDCB ADDRESS. HEX LOCATION(00002F62) IN CSECT(I7811 ) LENGTH (2) 
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2200 INTR1 oADDRESS. HEX LOCATION (0000326C) IN CSECT(I7811 ) LENGTH(2) 1282 “966 1092. 1095 1360 1363 1936 1941 1943 
2205 INTR2 oADBRESS. HEX LOCATION (0000327A) IN CSECT(I7811  ) LENGTH(1) 1853 PTTO1 ADDRESS. HEX LOCATION(000030DA) IN CSECT(I7811  ) LENGTH (4) 
2213 INTR3 oADDRESS. HEX LOCATION (00003288) IN CSECT(I7811  ) LENGTH (2) 707 SCTID jABDRESS. HEX LOCATION (00002910 ein CSECT (17811 15) QUENGTH (2) 
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EC=755285 


LENGTH (2) 


LENGTH (2) 
LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTR (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
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1215 
1218 
1222 
1234 
1440 
1442 
1373 
14.46 
1443 
1362 
1377 
1401 
1372 
1385 
1391 
1397 
1449 
1328 
1346 
1329 
1341 
1404 
1407 
1338 
1435 
1434 
1438 
1431 
1429 
1432 
1464 
1465 
1079 
1347 
884 
955 
10 46 
1459 
1562 
1584 
1551 
1623 
1495 
1627 
683 
681 
2047 


2228 
2239 
2052 
225d 
2246 
2121 
2056 
2069 





oe, 


at Red 
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NAME 
T504 
T505 
T506 
T507 
TSA 
TOTAA 
LOTTE 
T51BB 
T51CC 
T51E 
fa 
T511I 
T51Jd 
T5S1L 
T51M 
T51S 
T51T 
T51TC 
T51T1 
T5172 
T51U 
T51W 
T51Y 
T51YY 
T510 
T511 
T512 
T513 
T514 
T516 
TV2A 
T72B 
T750 
T751 
T7812 
T7838 
T7850 
T7872 
VRDCB 
WKDCB 
WRDCB 
WPRSID 
WSDCB 
WSIDT 
XE 

XI 
XTO 


XTOCK 
XTOCO 
XTOCS 
XIOCV 
XITOCX 
XIOER 
XTO1 

XIO2 


wme 


C) 


P/N= 16 35242 
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CROSS-REFEPRENCF LISTING 


ATTRIBUTES AND REFERENCES 
BOBFESS. HEY LOCATION(00002C70) IN 
ADDRESS. HEX LOCATION (00002C76) IN 
)ADBPESS. HEX LOCATION (00002C86) IN 
BODRESS. HEX LOCATION(O00002CAC) IN 
ADDRESS. HEX LOCATION(OOOO2E7A) IN 
ADDPESS- HEX LOCATION (00002E84) IN 
ADDRESS. HFX LOCATION(OQOO2DAF) IN 
1371 1441 
{ADBRESS. HEX LOCATION (00002F90) IN 
RDDRESS. HEX LOCATION(00002E86) IN 
{ADDPESS. HEX LOCATION(OQO02D7EF) IN 
{BDDRESS- HEX LOCATION(OQ002DBE) IN 
jADBRESS. HEX LOCATION (QO002F14) IN 
ADDRESS. HEX LOCATION(00002DA8) IN 
1368 137 
ADDRESS. HEX LOCATION(OO002DDA) IN 
1380 138 
ADDPESS. HFX LOCATION(O0002DEE) IN 
1386 138 
ADDRESS. HEX LOCATION(00002E0A) IN 
ADDPESS. HEX LOCATION(O0002E94) IN 
1337 1396 1407 1439 1845 
ADDRESS. HEX LOCATION(OOOO2CEE) IN 
ADDRESS. HEX LOCATION (00002D40) IN 
1326 1328 
)ADDPESS. HEX LOCATION(O0002CF4) IN 
ADDRESS. HEX LOCATION(00002D28) IN 
ADDPESS. HEX LOCATION(OOO02E1E) IN 
{LDDRESS. HEX LOCATION(00002E28) IN 
{AQDPESS. HEX LOCATION(00002D16) IN 
ADDRESS. HEX LOCATION(O0O002E70) IN 
1409 413 1433 
RDBRESS. HFX LOCATION(OO002E6F) IN 
ABDRESS. HEX LOCATION(O0002E74) IN 
ADDRESS. HEX LOCATION(00002E64) IN 
1423 1425 
ABDPESS. HEX LOCATION(00002E60) IN 
ADDRESS. HEX LOCATION(00002E66) IN 
ADDRESS. HEX LOCATION(OOOO2EAA) IN 
ADDRESS. HEX LOCATION(OOOO2EAE) IN 
ARDRESS- HEX LOCATION(O0002A8A) IN 
ADDRESS. HEX LOCATION(00002D44) IN 
ADDRESS. HEX LOCATION (00002950) IN 
ADDPESS. HEX LOCATION(000029BA) IN 
ADDRESS. HEX LOCATION(000029F6) IN 
392 46 520 
ADDRESS. HEX LOCATION(00002E98) IN 
ADDRESS. HEX LOCATION(00002F32) IN 
ADDRESS. HEX LOCATION(00002F52) IN 
1965 1966 1981 1982 
ADDRESS. HEX LOCATION (00002F22) IN 
ADDPESS. HEX LOCATION (00002F98), IN 
1502 159 1799 1880 1982 1986 
ADDRESS. HEX LOCATION(OOOO2ED2) IN 
1985 198 1988 989 
ADDRESS. HEX LOCATION(00002FA0) IN 
1795 196 1989 
ARSOLUTE, HEX VALUE(00000024) 
2166 222 
ABSOLUTE. HEX VALUE (00000022) 
2072 221 
ADDRESS. FEX LOCATION (00003 1CE) IN 
1931 193 1942 1949 1952 1955 
1979 198 1987 1990 1993 
>ADDRESS. HEX LOCATION(00003296) IN 
jADDPESS. HEX LOCATION (000032A8) IN 
jADDRESS. HEX LOCATION (000031D8) IN 
,ABDRESS. HEX LOCATION (000032AC) IN 
pADDPESS. HEX LOCATION (000032C6) IN 
>ADDRESS. HEX LOCATION (00003234) IN 
> ADDRESS. HEX LOCATION (000031E8) IN 
>APDRESS. HEX LOCATION (0000320F) IN 
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LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (65) 
LENGTH (2) 
LFNGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LFNGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LFNGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
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LENGTH (2) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
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4962 READ TEST 
CROSS~REFERENCE LISTING 


NAME ATTRIBUTES AND REFERENCES 
XIo8 ADDRESS. HEX LOCATION (00003222) IN CSECT(1I7811 
XTRNL ABSOLUTE. HEX VALUE(00000001) 
33 492 516 534 540 
ZEROO ADDRESS. HEX Borne yon esos ak IN CSECT (17811 
1099 1108 1117 +1178 #+%1365 1395 1842 
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